 Imports System.Data
Imports System.Configuration
Imports Oracle.DataAccess.Client
Public Class Register
    Inherits System.Web.UI.Page
    Dim i As Integer
    Dim cls As New clsDatabase
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim strSQL As String
        Dim Conn As New OracleConnection
        Dim obj As OracleCommand
        Dim dt As OracleDataReader


        Try
            strSQL = "select * from Bank"
            obj.Connection = Conn
            Conn.Open()
            With obj
                .Connection = Conn
                .CommandText = strSQL
                .CommandType = CommandType.Text
            End With
            dt = cls.QueryDataReader(strSQL)
            txtName.Text = dt("Bank_Name")
            txtNameTH.Text = dt("Bank_NameTH")

        Catch ex As Exception
            Conn.Close()
        End Try
    End Sub


End Class